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1 
1 
! General Library procedure routines 


MODULE LBR_PUTCACHE ( 
LANGUAGE Miyeets 2), 
‘ek = 'v06-000' 
= 
BEGIN 


' 
PReReeA AAR ARERR AEEAEHEH HHA KE EEE HEE A AAR AAAeeeeeReeeeeeee 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


i® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
0 ACCORDANCE WITH E SUCH LICENSE AND a 


: 0 E 
!® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
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1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
; '® CORPORATION. 

1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
: !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


eR RR RR RARE RARE AAAER ARATE AAA TA AAA AAA ATERAAAAAEKAAAA Eee 


+ 
> 


SDOOSOOSOOSOSOOSOOSOOOOCOOOOCOOCOOOOOSOOOOOO 


SOoCooooooooooo 


FACILITY: Library access procedures 
ABSTRACT: 


The VAX/VMS Librarian procedures implement a standard access method 
to libraries through a shared, common procedure set. 


ENVIRONMENT : 
VAX native, user mode. 
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AUTHOR: Bob Grosso 23-Jan-1981 
MODIFIED BY: 


V03-001 JW10067 Jim Teague 24-Nov-1982 
Make LBR clean up after itself more thoroughly. 
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; 8 09 5 1 LIBRARY | 
: § 1 *SYSSLIBRARY:STARLET.L32'; ' System macros 
; 8 0 1 REQUIRE 

; 9 938 1 "PREF IX'; ! Librarian general definitions 

720 197 1 REQUIRE 

; o) 3378 : *LBRDEF'; ! Librarian structure definitions 

s2-% 0790 1 EXTERNAL LITERAL 
; «664 791 «#1 Lbr$_badparam, 
; - 65 0798 1 lbr$_writeerr, 
> 666 0793 1 Lor$-normal; 
3 “67 foe, 1 
; 68 795 1 EXTERNAL 
: 669 p78 1 Lor$gl_rmsstv ! Returns STV on RMS errors 

: 4 1444 : Lbr$gl-control: REF BBLOCK; ! Pointer to current control block | 
5. > fa 0799 1 EXTERNAL ROUTINE 

s 3 0800 1 check_lock : JSB_0 ! Check if index is locked. 

; xg 0801 1 dealldc_mem : JSB_2, ! To return cache. 

s+ 75 0802 1 get_mem : JSB_2, ! To allocate empty_cache_buffer 
;..- 0803. 1 empty_cache, ' To empty cache when Library read only | 
y- 77 0804 1 write block : JSB_2 ! To write out block of highest VBN | 
; 78 0805 1 Lookup_cache : JSB_2, ' To find block of highest VBN 

; 4 pane : validate_ctl : JSB_1; ! To validate the control index for Lbr$flush 

3; o 8 0808 1 FORWARD ROUTINE 

;.° 0809 1 write_n_blocks, ! Write empty cache buffer 

,.° 3 0810 1 flush_cache, ! Write out and deallocate cache 
; «84 0811 1 dealloc cache, ! Deallocate hash table and cache | 
; 89 baig 1 test_write; ! Write out highest VBN in cache to ensure 

; Be Bala . ! sufficient disk space. 
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; 15 1 ROUTINE flush_cache ( flush_data, writestatus, continue_on_err ) = : 
cn ye : 
ws. \8 1! This routine writes out to the Library either all the data blocks : 
“Es BBs 1} or all the index blocks. The emptying of the cache starts with : 
: 94 820 1! the first bucket and proceeds by emptying a bucket at a time. If : 
; 0821 1! a block has been modified then those VBN‘s in the cache which are ; 
3 © 08 ¢ 1! Foquent telly adjacent to it are also copied to the empty_cache_ buffer. : 
; w be 1! The next VBN in sequential order will be found in the next bucket, so ; 
; 8246 1! the search will continue along the buckets until the buffer fills or ; 
; 0825 1! the next VBN is not found in the next bucket, at which point the : 
; 100 88 Be buffer will be written out to the Library. . 
; WOT i 2 Before any blocks are written, the block with the largest VBN is ; 
3 Ise 88 i written out to ensure that there is room on the storage device to : 
; 829 1! update the Library. ; 
: 104 68 Oo 1! . 
: 105 31 1°! Inputs : 
: 106 ttt) & ; 
; 107 ti . % flush_data = lLor$c_flushdata if data blocks are to be flushed, . 
is te: ; } lLor$c_flushall if index blocks are to be flushed. : 
; 110 0836 1! writestatus = If writestatus indicates an error then no more ; 
s 191 0837 1! blocks will be written. If writestatus = true, ; 
: ie 0838 1! then the cache will continue to be deallocated. : 
; 0839 1! ; 
3 (116 0840 1! continue_on_err = : 
3; 995 0841 1! If true, then continue to deallocate cache after : 
3 138 Bees : } a buffer write error has occurred, else exit. : 
; #118 0844 1 ! Routine value ; 
3 19 0845 1! ; : 
: 120 0846 1! success or status from write. 3 
: 121 0847 1 !--- 3 
: 158 gece 3 CECIN 
> 126 0850 2 !+++ : 
3° 129 0851 ! body of ROUTINE flush_cache : 
: 189 oass 3 
; 128 0854 BIND : 
: +4 0855 context = .lbr$gl_control ClbrSt_ctupers : BBLOCK, 3 
3 130 9338 cache = .context Ectx$l_cache] : VECTOR; : 
; 13 +24 LITERAL 3 
ta 5 first_bucket = 0, ‘Offset of first entry in hash table 3 
; 13 poet last_Bucket = lbr$c_hashsize/4 - 1; !Offset of last entry in hash table : 
: 136 p86¢ LOCAL 3 
s 137 086 flushbuf : BBLOCK Clbr$c_flshbfsiz * lbr$c_pagesize] ; 
> 138 0864 ' buffer when called by Lor$flush ; 
5 15 0865 putcachebuf : REF BBLOCK, ! point to either flushbuf which is on stack : 
; 140 0866 ‘ ! or buffer allocated from virtual memory. : 
: (141 0867 purbutste. ! Size of the buffer being used : 
5 16g Opes ufstatus, ! allocation status for vm buffer : 
3; (14 9 status; . 
: 146 0870 : 
; «6145 0871 : 
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' Descend through hash table a bucket at a time. 

! For each entry in a bucket, check it's vbn and then search the next bucket 

' for the next vbn in sequence. 

! If found, store in buffer so all consecutive vbn's can be written with one QI0. 
! Keep getting consecutive vbn's until buffer full or next in sequence not found. 
' A count is kept of the number of virtual blocks copied to the buffer, and 

' the location in the buffer of the last vb that was modified is recorded so 

} that trailing unmodified blocks are not written out. 

1 
i 
i 
i 


If a buffer cannot be allocated from virtual memory then use the buffer 
on the stack. 


putbufsiz = Lbr$c_putbufsiz; 
cn (bufstatus = get_mem (lbr$c_putbufsiz * Lbr$c_pagesize, putcachebuf)) 


BEGIN 
putbufsiz = lbr$c_flshbfsiz; 
aces = flushbuf; 
INCR bucket FROM first_bucket TO Last_bucket DO ! for every bucket in hash table 


LOCAL 
entry : REF BBLOCK, 


last_entry : REF BBLOCK, 
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' Each bucket contains the head of a Linked 
List of cache entries. 
Backward Link in bucket's linked List 
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i 
' 
' 
0899 nxtcache_entry, ! Next cache entry in the Linked List. 
0900 targvbn, ! The virtual block number of the first block 
0901 ! in the cnety cache_buffer. 
7 090 bufblkcnt, ! Count of the blocks written into the 
7 090 ' putcachebuf buffer. 
7 0904 Lstmodblkloc, ! The count of the Last vbn in the putcachebut 
7 0905 ! which had the moditied bit set. The buffer 
80 0906 ' contents will be written out up to the 
81 0907 : Last modified block. 
82 0908 next_vbn, ! The next vbn in sequence after the one just 
83 0909 ! copied to the putcacnebuf. 
84 0910 next_bucket; ' Record location of the hash table bucket 
HF a4 ! being searched. 
87 $918 last_entry = cache(.bucket]) ; ' back Link in hash bucket Linked List 
38 pete entry = cache C.bucket); ! first hash List entry 
90 0916 : Loop for each entry in the bucket unless there has been a write error 
4. bors } and continue_on_err is faise 
$8 3484 cag ea NEQ 0) AND (.writestatus OR .continue_on_err) )DO 
95 0921 nxtcache_entry = .entry Ccache$l_link]; ! remember the next entry in bucket 
196 09 ¢ IF .entry Ccache$v_data) EQL .flush_data 
197 09 THEN 
198 88 4 BEGIN , ; : 
199 925 IF .entry Ccache$v_dirty] ! if the page has been modified 
00 +4 $ THEN 
01 9 . 
02 0928 IF .writestatus 
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03 THEN | 


i As long as there haven't been any write errors then keep 
copying blocks to buffer and writing buffer to Library. 


BEGIN 

beraven = .entry Ccache$l_vbn]; ! yvbn of first block in empty cache buffer. 

CHSMOVE (lLbr$c_pagesize, CHSPTR(.entrylcache$l_address]), 

CHSPTR( .putcachebuf )); 

bufblkcnt = 1; ! record the number of pages and modified | 

Lstmodblkloc = 1; ; pages copied to the buffer 

next_vbn = .entry(Ccache$l_vbn] + 1; ! the virtual block number of the page 
: following the last copied to buffer 

| 


if the next vbn is in the cache it will be in one of 
the entries in the next bucket. Check for end of hash 
table and loop around. | 


ebucket LSS Last _bucket 


' 

i 

i 

i 

IF 

THEN next_bucket = .bucket + 1 
ELSE next_bucket = 0; 
! 

i 

i 

i 

WH 


Keep looping until the buffer is filled or the 
consecutive VBN is not found. 


ILE ( (.bufblkent LSS .putbufsiz) AND (.next_vbn NEQ 0) ) DO 
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BEGIN 
LOCAL 
nxtbucket_entry : REF BBLOCK, ! forward Link in chain of cache aa 
last _bucket_entry : REF BBLOCK, ! rear Link ; 
234 nxtvBn_entry : REF BBLOCK; ' the cache entry of the vbn being sought. 
235 0961 nxtbucket_entry = .cachel.next_bucket]; ! retain forward Link. 
236 096 last_bucket_entry = cacheL.next_bucketd; ! retain backward Link. 
237 096 nxtvBn_entry = 0; ! mark the next sequential 
238 0964 ! vbn as unfound. 
239 0965 ' 
240 0966 ! While there are entries in the bucket and the VBN being sought 
241 0967 : has not been found and the search has not gone beyond where the vbn 
242 0968 ; would be, keep loo ing through the entries in the bucket. ; 
st? 3444 } Also give up search if block was found but is of wrong type; data/index. 
245 0971 WHILE ((.mxtbucket_entry NEQ 0) AND (.nxtvbn_entry EQL 0)) DO 
seo O37¢ BEGIN 
4 97 IF .nxtbucket_entryCcache$l_vbn] GTR .next_vbn 
248 0974 THEN 
249 0975 1 BEGIN 
250 976 1 lLast_bucket_entry = .nxtbucket_entry; : 
251 977 1 nxtbucket_entry = .nxtbucket_entry(cache$l_Link); 
26 978 1 E 
5 979 ELSE 
54 980 1 
55 344 1 IF .nxtbucket_entryCcache$l_vbn] EQL .next_vbn 
56 9 ; 1 THEN 
57 983 1 GIN | 
58 0984 1 IF .nxtbucket_entry(Ccache$v_data] EQL .flush_data 
259 0985 1 THEN 
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i Next WBN found so unlink and mark it found 
Last_bucket_entry(Ccache$l_link] = 


onxtbucket_entryCcache$l_Link]; 


nxtvBn_entry = .nxtbucket_entry; ! record the unlinked cache entry 
! which contains the VBN searched f 


END 
ELSE nxtbucket_entry = 0 ! Was found but was wrong type. 


!' the next VBN is not in cache 
nxtbucket_entry = 0; ! End search 


END; ! WHILE searching for next vbn 


IF _.nxtvbn_entry EQL 0 ! the next VBN was not found 
nee next_vbn = 0 
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E 
writestatus = write_n_blocks ( .putcachebuf, .targv 


The next VBN was found, copy it into buffer if it was 
modified. If not modified, copy it in unless it would 
be the last in the buffer. 
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bn_entryCcache$v_dirty]) OR 
Lkcnt + 1 NEQ .putbufsiz) ) 


VE (Lbr$c_pagesize, 

CHSPTR (.nxtvbn_entryCcache$l_address]), 

CHSPTR ( .putcachebuf + .bufb[kcnt*lbr$c_pagesize ) ); 
ufblkent = .bufblkcnt + 1; 
F .nxtvbn_entry(cache$v_dirty] THEN Lstmodblkloc = .bufblkcnt; 


When setting next bucket for continued search of sequential 
vbn's check to see if it should loop around end of hash table. 


If .next_bucket LSS last_bucket 
THEN next_bucket = .next_bucket + 1 
ELSE next_bucket = 0; 


next_vbn = .next_vbn + 1; 
END 


ELSE 


: page was not modified and would be last in buffer so don't 
other with it. 


next_vbn = 0; 
: deallocate block and then the hash bucket entry 


dealloc_mem (Lbr$c pagesize. -nxtvbn_entry(cache$l_address]); 
dealloc_mem (cache$c_Cength, .nxtvbn_entry); 
; e vbn was found 


D; ! else t 
! WHILE Stilt filling buffer and hee the next VBN to go in it. 
n, .lstmodblkloc ); 


M 
EXTRN EMPTY CACHE. WRITE BLOCK 
“EXTRN LOOKUP_CACHE, VALIDATE_CTL 


-PSECT $CODES,NOWRT,2 
OFFC 00000 FLUSH_CACHE: 
. WORD 
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: 17 1043 7 ! 3 
3 18 1044 7 ! If there has been a write error then exit if flush_cache : 
: 1 1045 7 ! was called to flush the cache, else it was called fo deallocate : 
: z) 1929 f the cache, so keep on deallocating without writing. ; 
; ¢ 1048 7 IF NOT .writestatus AND NOT .continue_on_err ; 
; 1049 7 THEN 3 
3 4 1050 BEGIN 3 
; 5 1051 ! #* Note ** those blocks in buffer are lost ; 
: ; 6 1926 IF .bufstatus . 
s Ser 1053 8 THEN dealloc_mem (.putbufsiz * lbr$c_pagesize, .putcachebuf); ; 
: 308 102 : pe Lunn -writestatus; : 
; 330 1056 g END; ! IF writestatus (if only deallocating and not writing) 3 
s 331 1057 END; ! If the first was modified 4 
; $38 1928 : Last_entryCcache$l_link] = .entrylcache$l_link]; ! unlink : 
; eae 1399 : deallocate block and then the hash bucket entry | : 
; 336 1006 5 dealloc_mem (lbr$c_pagesize, .entryCcache$l_address)); 3 
aaa 1063 5 dealloc_mem (cache$c_length, .entry); 3 
>. oe 1064 5 N ! If the block type was correct | : 
; 339 1065 4 ELSE ! the block type was incorrect so hop over it. 3 
; 340 1066 4 last_entry = .entry; | ; 
; «341 1067 4 ; 
; 342 1068 4 entry = .nxtcache_entry; ; 
3; 343 1069 4 END ' WHILE covering all entries in the bucket 5 
; see ey § END; ! DO the whole hash table : 
: 346 1072 2 IF .bufstatus THEN dealloc_mem (.putbufsiz * lbr$c_pagesize, .putcachebuf); ; 
; 347 1998 2 RETURN .writestatus; "6 ° me , s 
; 348 1074 1 END; ' flush_cache : 
! . 
-TITLE LBR_PUTCACHE : 
-IDENT \V0%-000\ | 3 
.EXTRN LBRS$_BADPARAM, LBRS$_WRITEERR ; 
-EXTRN LBRS$_NORMAL, LBRSGL_RMSSTV $ 
SEXTRN LBRSGL_CONTROL, CHECK_LOCK | : 
-EXTRN DEALLOC MEM, GET | ; 
0 Save R2,R3,R4,R5,R6,R7,R8,R9,R1I0,R11 ; 0815. 3 
SE FDEO CE 9 002 MOVAB =-544(SP5, SP ; | : 
50 00006 CF D 909 MOVL LBRSGL CONTROL, RO : 0855 ; 
SA OE AO DO 000 f MOVL 14(RO), R10 3 3 
04 AE 1E D0 0001 MOVL #30, PUTBUF ; 0886 | ; 
51 1¢ AE 9E 00014 MOVAB PUT EACHEBUF , R1 > 0887 | : 
50 3c00 F 3C¢ 8 18 MOVZ2WL #15 Rn 3 | 3 
00 96 1D SBW ry : : 
6E DO 00 $9 MOVL RO, BUFSTATUS ; ; 
09 6— £8 000 BLBS § BUFSTATUS, 1$ : F 
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#1, PUTBUFSIZ 
a ets aa PUTCACHEBUF 

13} Feueeer » LAST ENTRY 
10) CBUCKETJ, ENTRY 


DDR 


ATUS, 6 

_ON/ERR, 4$ 

» NXTCACHE_ENTRY 
12(ENTRY)> FLUSH_DATA 
ENTRY), 9$ 
STATUS, 8$ 

,_ TARGVBN 

@8(ENTRY), @PUTCACHEBUF 
UFBLKCNT 

STMODBLK 
(ENTRY) , 
T, #2? 


NRO — MO DOS*OocC 


AmAXAPATXK MDM + 2 MT - FMM + ZZ HR —-—-E 


za - 


LOC 

NEXT_VBN 

7), NEXT_BUCKET 

T BUCKET 

BCKCNT, PUTBUFSIZ 

_VBN 

10) CNEXT_BUCKET], NXTBUCKET_ENTRY 
@8(R10)CNEXT BUCKET], LAST_BUCKET_ENTRY 
NXTVBN_ ENTRY 

NATBUCKET_ENTRY 

NATVEN_ENTRY 

¢ MATBUCKET ENTRY) , NEXT_VBN 


NXTBUCKET ENTRY, LAST BUCKET_ENTRY 
(NXTBUCKET_ENTRY), NXTBUCKET_ENTRY 


@-2~w—-OaZz PP foe be ey a eee Vv 4 


COMMAWC MOC 


14$ 

16$ 

“ #1, 12(NXTBUCKET_ENTRY), FLUSH_DATA 
(NXTBUCKET ENTRY), (LAST BUCKET_ENTRY) 
NXTBUCKET ENTRY, NXTVBN_ENTRY 
NXTBUCKET_ENTRY 

14$ 

NXTVBN_ENTRY 

19$ 

NEXT_VBN 

11$ 

12(NXTVBN_ENTRY), 208 

1(R8), RO 


Pee Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Ge Se Se Ge Se Se Se Se Se Se Se Be Se Ses Be Se Se Se Se Be Se Be Ge Se Se Fe Se Se Se Ge Se Se Se Se Se Se Se 


; Routine Size: 406 bytes, Routine Base: S$CODE$S + 0000 


N 2 | 
LBR_PUTCACHE 16-Sep-1984 02:06:4 VAX=-11 Bliss-32 V4.0-74 Page 9 LBR 
v04=000 12-8 08- 1 3Be 95:96:46 DISKSVMSMASTER:CLBR.SRC PUTCACHE.B32:1> (3) | v04 
04 AE 0 D1 00068 CMPL RO, PUTBUFSIZ ; : 
SHE SSE aos, Mt G8! ourauccwr, fis) 
1¢ BEGO 08 89 0200 BF 2 OF MOVC3 #512, @B(NXTVBN_ENTRY), @PUTCACHEBUFCRO] : 
8 D6 OFB INCL BUFBLKCNT + 1016 ; 
0c Ad E9 000FD BLBC (NXTVBN_ENTRY), 218 + 1017) : 
OC AE 28 D0 0191 MOVL § BUFBLKCNT; LSTMODBLKLOC : | ; 
0000007F 6 D1 00105 218: — CMPL NEXT BUCKET, #127 ¢ 1022. ; 
ayant eee AEST Bucket : 1023 
GBH on, FR tracer pom eed | 
08 AF D6 0011 $35 INCL  NEXT{VBN + 1026 ; 
03 11 00117 BRB 25$ + 1009 ; 
08 AE 04 00119 248: CLRL §- NEXT_VBN + 1034 ; 
51 08 AD DO 0011C 25$:  MOVL  8(NXTVBN_ENTRY), R1 + 1038 ; 
50 0200 8F 3¢ 00120 MOVZ2WL #512, RO : ; 
00006 30 00125 SBW  DEALLOC_ME : ; 
51 59 DO 00128 MOVL NXTVBN_ENTRY, R1 : 1039 $ 
50 OE DO 00128 MOVL #14, R : ; 
00006 30 OOi¢E BSBW  DEALLOC_MEM : ; 
AB 11 00131 BRB 5 + 0955 ; 
OC AE DD 00133 26$:  PUSHL LSTMODBLKLOC + 1042 ; 
18 AE DD 00136 PUSHL TARGVBN : ; 
24 AE DD 00139 PUSHL PUTCACHEBUF : : 
0000v CF 03 FB 0013¢ CALLS , WRITE_N_BLOCKS : : 
08 Ac 50 pO 00141 Ls RO, _~WRITESTATU : ; 
09 08 AC €8 00145 BLBS § WRITESTATUS, 27$ + 1048 : 
05 OC AC £8 00149 BLBS §§ CONTINUE ON ERR, 27$ : ; 
35 6—E €8 0014D BLBS BUFSTATUS, 31$ 3 1052 3 
3F 11 00150 BRB 32$ > 1054 ; 
10 BE 6B 00 00152 27$:  MOVL (ENTRY), @LAST_ENTRY : 1058 ; 
51 08 AB DO 00156 MOVL  8C(ENTRYS, R1 + 1062 ; 
50 0200 8F 3C OO15A MOVZWL #512, RO : : 
00006 30 0015F BSBW  DEALLOC_MEM : ; 
51 5B D0 00162 MOVL ENTRY, Ri + 1063 F 
50 OE D0 00165 MOVL #14, RO : ; 
00006 30 00168 BSBW  DEALLOC_MEM : : 
04 11 00168 BRB 29$ : 0922 : 
10 AE 5B 00 0916p 28$ MOVL ENTRY, LAST_ENTRY : 1066 ; 
5B 18 AE b0 00171 29$ MOVL § NXTCACHE_ENTRY, ENTRY + 1068 3 
FEC4 31 00175 BRW 3$ : 0919 ; 
FEAF 57 01 0000007F 8F £F100178 30$: ACBL #127, #1 BUCKET, 2$ : | F 
0c oe 3) 0018¢ BLBC  BUFSTATUS, 32$ : 1072. : 
50 04 AE 8 00185 31$:  ASHL #9, PUTBUFSIZ, RO : 
51 1C AE 00 0018A MOVL  PUTCACHEBUF, R1 F 
00006 30 0018 BSBW = DEALLOC ; 
50 08 AC 00 00191 32$: § MOVL  WRITESTATUS, RO : 1073 | 
04 00195 RET : 1074 | 
| 


3; 349 1075 1 
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| 

; 2] 1976 1 ROUTINE test_write = | 

3 ¢ 1077 1 444 

3 32 4: + 3 | 

; 354 1079 1! Write out the largest VBN in the cache to ensure that there will 

$. 399 13a 1} be sufficient space to write the library. 

; 356 1081 1! Return the status of the write. 

s Bor See 1} 

; ie 1083 1 !--- | 

: 359 1084 2 BEGIN | 

361 1086 ne text Lbr$gl trol Clor$t ] : BBLOCK | 

3 context = .lbr contro r ctxptrd : ‘ 

; 6¢ 1087 largest_vbn = content Cetx$t_hivBnd;. 

3; 56 1088 2 LOCAL | 

; 364 1089 cache_entry : REF BBLOCK, 

; 365 1090 status; 

; 366 1091 2 

; 367 1036 IF .context(ctx$v_ronly] | 

; 368 109 THEN RETURN [br$_ format 

; 369 1094 ELS 

; 370 1095 BEGIN 

s aft 1096 3 : 

; He 34 : If largest_vbn is 0 then no blocks were modified 

; 374 1099 3 IF .largest_vbn EQL 0 THEN RETURN Lbr$_normal; | 

3 af 1100 3 perform ( spy: cache (.largest_vbn, cache_entry) ); 

; 5376 1101 3 status = write_block (.cache_entry(cache$l_address], .largest_vbn); 

; 377 1102 3 IF _.status 

; 378 1103 3 THEN RETURN write_block (.lbr$gl_control Clor$l_oldhdrptrj, 1) 

3. STP 1104 3 ELSE RETURN Lbr$_writeerr; 

; 380 1105 2 END; 

; 381 1106 1 END; ! ROUTINE test_write 


OFFC 00000 TEST_WRITE: 
. WORD 
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Re Se Be Se Se Be Se Be Oe Se Se Oe Se BH Se BH Se Se Be Ge Se Se Se SH Se Se Se Be Se Se Se Se Se See Se ee se Fe Se Sees ee Se Se Se Se Sees ee Se Se Seas te teas 


Save R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 : 1076 
SE 04 C¢2 00002 SUBL2 #4, SP : 
50 00006 CF 00 00005 MOVL LBRSGL_CONTROL, RO + 1086 
50 OE AO DO OOOOA MOVL  14(RO)7 RO : 
04 Ad 95 OO00E TSTB = (RO) : 1092 
06 19 00011 BLSS ‘i$ : 
53 46 A D 90013 MOVL 70(RO), R3 : 1099 | 
08 12 0001 BNEQ 2$ : 
50 000000006 8F D0 00019 1$: MOVL § #LBRS_NORMAL, RO : 
04 00020 RET : 
51 $f 44 i 1 2$: MOVAB CACHE_ENTRY, R1 3 1100 | 
50 5 4 0024 MOVL R 3 
00006 30 00027 BSBW _ LOOKUP_CACHE : 
27 50 £9 O002A BLBC ATUS : | 
2 6 DO 0002D MOVL CACHE ENTRY, R2 : 1101 
51 D0 000 MOVL R3, RT : | 
50 08 A p 00 MOVL 8 (R2), RO : 
00006 00 BSBW WRITE BLOCK ; 
10 50 £9 0003A BLBC = STATUS, : 1192 
52 00006 CF DO 0003D MOVL  LBRSGL’CONTROL, R2 : 110 


LBR_PUTCACHE 1b-se -1984 VAX=-11 BLi 
Lee O00 eet et) Pik ek et 
51 01 00 90042 MOVL 
0 1A A2 0004 MOVL sotRS 
00006 30 00049 BSBW WRITE aLbck 
04 0004C¢ RET 
50 000000006 8F 00 00040 3$: MOVL § #LBRS_WRITEERR, RO 
04 00054 4$: RET 


; Routine Size: 85 bytes, Routine Base: S$CODES + 0196 


; 32 1107 1 
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; 384 1198 1 ROUTINE write _n_blocks ( addr, targetvbn, nblocks ) = 

, 3B 11 BEGIN 

a= 1110 

s 38 1111 leon 

; 388 1116 ! 

; 89 111 ! This routine writes out winblocks3 blocks from the flush_cache_buffer 

: Ss ie } im memory to the Library file at the specified block number. ~ 

: 9 1339 ! Inputs: 

; Ww 111 ' 

; 394 1118 : addr = address of buffer to write from 

3 395 1119 : targetvbn = first disk block number in Library file to write to 
; 38 1% Y } nblocks = number of blocks in buffer to write out 

; 398 11 ; ! Outputs: 
; 399 11 ! | 
; 400 1124 ! Return write status. 
: 401 1125 lene 

s 60 1126 

; 40 1127 BIND 

: 404 1128 context = .lbr$gl_control Clor$l ogtnecrss BBLOCK, 

; 405 11g? rab «= .context Ectx$l_recrab]: BBLOCK; 

: 406 1130 

: 407 1131 LOCAL 

; 408 1138 status; 

; 409 113 

; 410 1134 § rab Crab$l_bkt] = oe ennl ! Set block number to write 

; 411 1135 rab Crab$l"rbf) = .a 'Set address of buffer for write 

; 4i2 1136 2 rab Crab$worsz] = ibrsc ppasesize, * ,nblocks; ‘And its length 

: 413 1137 2 status = SQRITE (RAB=rab ‘Write the record 

3 416 1138 2 IF NOT .status 

3 415 1139 ¢ THEN 

: 416 1140 BEGIN 

; 417 1141 3 Lbrsg rmsstv = .rab Crab$l_stvJ; ! Record error code. 

; 418 1142 3 peru N” Lor$_writeerr; 

3 419 1143 3 END 

: 420 1144 2 ELSE RETURN Lbr$_normal; 

; 421 1145 2 

: 422 1146 1 END; 


.EXTRN SYSSWRITE 
0004 00000 WRITE_N BLOCKS: 


WORD Save R2 ; 1108 
50 00006 CF D0 0000 MOVL © LBRSGL_CONTROL, RO > 1128 
50 QE AO DO 0000 MOVE §—-14¢RO)™ : | 
52 OC AQ 00 0000B MOVL  12(RO), R > 1129 | 
38 AQ 08 AC 00 Q000F MOVL § TARGETVBN, 56(R2) 1134, 
28 Ae 04 AC DO 00014 MOVL_ ADDR, 1135 | 
22. A2 Oc aC 0200 8F A5 00019 MULW3 #512, NBLOCKS, 34(R2) > 1136. 
52 DD 00021 PUSHL —R2 ; 1137 
000000006 00 01 FB 00023 CALLS #1, SYSSWRITE : | 
30 EB O00¢A BLBS STATUS, ; 1138) 
00006 ¢F Oc A200 000¢0 MOVL  12(R2), LBRSGL_RMSSTV > 1141 
0 000000006 8F 00 000 MOVL  ALBRS_WRITEERR, RO 11446, 


3 
vie ania 1-00-1984 93795525) —BESKSUMGMASTER CLEA SRCSPUTCACHE 832-4" (4). 
50 000000006 8F 06 £0038 18: nov. #LBRS_NORMAL, RO eal 
; Routine Size: 67 bytes, Routine Base: SCODES + O1EB | 


; 423 1147 1 | 
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1ecSep-1986 19:89:69 DI SKSMSMAS! 


1 GLOBAL ROUTINE dealloc_cache = 
BEGIN 


' 
! 
' Flush out the cache, tides blocks to Library file and 

! returning virtual memory. Then deallocate the hash table. 

! First write out the block of the highest VBN to ensure sufficient disk 
! space. Then write out data blocks then index blocks. If @ write error 
! occurs, continue deallocating the cache but quit writing the blocks out 
to the Library file. 

1 


D 
context = .lbr$gl_control Clor$l_ctxptr] : BBLOCK; 
L 
status; 
LITERAL 
continue = true; ' if flush_cache encounters a write error 


! quit writing but continue to deallocate cache. 


! 
' If the i Sprery has been Spence read only then just empty the 
; cache, otherwise use flush_cache which does more error checking 
and writes out data blocks before the index blocks. 
IF _ .context(ctx$v_ronly] 
THEN 
status = empty_cache () 
ELSE 
BEGIN 


i Write out the block in the cache with the largest VBN to 
} ensure sufficient disk space before flushing the cache. 


status = test_write (); 


status = flush_cache( lbr$c_flushdata, .status, continue); 
status = flush _cache( lbr$c_flushall, “ptetun. continue); 
dealloc_mem ( Tore hash 26. -context Cctx$l_cache) ); 
context Cctx$l_cache) = 0; 


If an error hasn't occurred, and cache header entry common allocation 
block is not empty then deallocate it. 
-Status) AND (.context Cctx$l_chdallsiz] NEQ 0) 


BEGIN 
Goo! ec nen ( .context Ccetx$l_chdallsiz], .context Cctx$l_chdalladr] ); 


RETURN .status; 
END; 


22 
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; Routine Size: 96 bytes, Routine Base: S$CODE$S + 022E 


OFFC 00000 .ENTRY DEALLOC CACHE, Save R2,R3,R4,R5,R6,R7,RB,- = 1148 ; 
50 00006 CF DO 9002 MOVL LBRSGL CONTROL, RO + 1163, ; 
52 OF AQ pO 000 MOVL  14(RO)7 R2 : | : 
06 A2 95 00008 TSTS = 4(R2) ; 1176) ; 
0A 18 0000 BGEQ ~=s«d1$ : | ; 
00006 cf FB 901 CALLS #0, EMPTY_CACHE > 1178) ; 
3 DO 0001 MOVL RO, STATUS : 3 
11 0001 BRB 2$ : ; 
FFG9 OCF 09 FB OO1A 1$ CALLS #0, TEST WRITE : 1185. : 
53 0 00 OO01F MOVL RO, STATOS : ; 
04 DD 00022 PUSHL #1 : 1187 ; 
3 DD 00024 PUSHL STATUS ; | : 
01 DD 00026 PUSHL #1 : ; 
FDAS CF 03 FB 00028 CALLS #3, FLUSH _CACHE é 
53 50 00 po0ed MOVL RO, STATUS : 
01 DD 00030 PUSHL #1 + 1188. 
53 DD 00032 PUSHL STATUS : | 
7E D4 00034 CLRL. -=(SP ; 
FD97 CF 03 FB 00036 CALLS #3, FLUSH _CACHE $ 
53 50 DO 00038 MOVL RO, STATUS ; 
5} 08 A2 DO 0003E MOVL B(R2), R1 : 1189) 
50 0200  8F 3¢ 0004¢ MOVZWL #512, RO : | 
00006 30 0004 SBW DEALLOC_MEM ; 
08 Ae D4 O004A CLRL = B(R2) + 1190. 
0c 53 £9 0004D 2$: BLBC STATUS, 3$ : 1197) 
4A A2 05 00050 TSTL 74(R2) ; 
07 13 00053 BEQL 3$ : 
50 4A A2 7D 00055 MOVG  74(R2), RO : 1200 | 
00006 30 00059 BSBW DEALLOC_MEM : 
50 53 D0 0005¢ 3s: MOVL STATUS, ~RO ; 1203 | 
04 0005F RET > 1204 | 
| 


; 482 1205 1 
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16-Sep-1984 02:06:4 VAX-11 Bliss-32 V4.0 
a aets 1 95:96:48 DISKSVMSMASTER:CLBR 
1 5. O0At ROUTINE Lbr$flush ( ctl_index, blktyp_to_flush ) = 


'ee4 
' 
FUNCTIONAL DESCRIPTION 
This routine empties the cache of all data blocks or of all 
data and index blocks, and deallocates the virtual memory. 
If a write error is encountered then it quits both writing 
the cache to the Library, and deallocating the cache. 
CALLING SEQUENCE 
status = lbr$flush ( ctl_index, blktyp_to_flush ) 
INPUT PARAMETERS 


ctl_index: 
address of control table index. 


i 

i 

! 

i 

i 

} 

i 

i 

i 

i 

i 

i 

i 

: blktyp_to_flush: 

' If blktyp_to_flush = Lbr$c_flushdata then write out 
' data blocks from cache and return virtual memory. 
: f blktyp_to_flush = Lbr$c_flushall then write out 
! data blocks and index block$S to Library file and 
deallocate the virtual memory. 

! 

i 

i 

' 

i 

i 

' 

i 

i 

i 

i 


IMPLICIT OUTPUTS 


ALL the blocks of the type specified are emptied from the 
virtual memory cache and written to the Library. 


! RETURN VALUE 


Lbr$_normal Success code 
lbr$_badparam Block type other than lbr$c_flushall or Lbr$c_flushdata 
requested. 


lbr$_writeerr Write error during writing out of cache 


OCAL 
blocktype, ! flag to signal whether data blocks or both 
io : data and index blocks should be flushed. 
status; 


LITERAL 
continue = false; 


BUILTIN 
NULLPARAME TER; 


perform (validate ctl (..ctl_index)); : 
perform( check_lock() ); ! check that index is not locked 


IF NULLPARAMETER(1) 
THEN blocktype = Lbr$c_flushall 


~— 
-o 
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LBR_PUTCACHE 
v04= 


: 30 Wee 8 ar c'ebubceeeRy Wea (bese MGcRdtey AND (.bLocktype NEO LorSc_flushall) > ; 
; - bloc e r$c_flushdata -bloc e r$c_flusha : 
: 54 1965 3 THEN RETURN LorS_badparam: os : 
> 544 1 08 . 
: 545 126 : ; 
; 278 1268 : Write out the block in the cache with the largest VBN to . 
; ete : $3 ensure sufficient disk space before flushing the cache. ‘ 
: 549 1071 2 status = test_write (); ; 
; 386 1 ue i“ ; 
3 D1 127 IF .status : 
; 226 1274 THEN status = flush cache( Lbr$c_flushdata, .status, continue); : 
; 2 1275 IF .blocktype EQL LBr$c_flushall ° 
; 554 1276 THEN | H 
; 555 1277 IF .status : 
; 556 1278 THEN status = flush_cache( Lbr$c_flushall, .status, continue); : 
3 Sor 1279 RETURN .status; > 
; 3 1280 1 END; ; 


OFFC 00000 -ENTRY LBRSFLUSH, Save R2,R3,R4,R5,RO,R7,RB,RI,- ; 1206 
50 04 BC DO 00002 MOVL  @CTL_INDEX, RO : 1258 
00006 30 00006 BSBW = VALIDATE CTL : | 
4D 50 £9 00009 BLBC STATUS, 6S | 
00006 30 0000¢ BSBW  CHECK_LOCK : 1259. 
47 50 £9 0000F BLBC STATUS, 68 : | 
6c 95 00012 TSTB (AP) : 1261 
05 13 00014 BEQL «6-18 ‘ 
06 Ac D5 00016 TSTL CAP) | 
04 12 00019 BNEG 2S | 
52 D4 OO01B 1$:  CLRL_—« BLOCKTYPE : 1262, 
04 11 0001D BRB 3S | 
52 08 AC DO OOOIF 2$: MOVL BLKTYP_TO_FLUSH, BLOCKTYPE : 1263 
01 Sé D1 00023 3$: CMPL —«-BLOCKTYPE> #1 $1264 | 
0¢ 13 00026 BEQL : | 
52 05 00028 TSTL  BLOCKTYPE : | 

08 13 O002A BEQL 
50 000000006 8F pO 0002¢ NOVL —#LBRS_BADPARAM, RO 1205 
FECF CF 00 FB 090 4$: CALLS #0, _TEST_WRITE : 137), 
0B E9 00039 BLBC STATUS, 5$ : 1273. 
7 D4 000% CLRL = =(SP) : 1274 | 
50 DD 000 PUSHL STATUS | 

01 db 0004 PUSHL 
FD2B OCF 03 FB 0004 CALLS #3, FLUSH_CACHE : | 
2 05 00047 S$: TSTL  BLOCKTYPE : 1275 | 
F 1g 0049 BNEG | 
08 E> 00048 BLBC «STATUS, 68 : 1277. 
E D4 0004 CLRL 0 -=(SP) : 1278 
50 DD 000 PUSHL STATUS | 
E D4 00 CLRL. _=(SP) | 

FDI9—s«CF 03 FB 00 CALLS #3, FLUSH_CACHE : 
04 00059 6$:  —RET : 1280. 


yEoseo-t9ge 09:96:48 yA 


LB? PY ICACHE 


; Routine Size: 90 bytes, Routine Base: SCODES + 028E 


K-11 Bliss-32_V 
SKSVMGHASTER-LLBR SRCSPUTCACHE .B3203°° (FS 


3; 39 1 
; 566 138 te. : arent PUTCACHE 


; PSECT SUMMARY 
: Name Bytes Attributes 
: SCODES 744 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


oad Syabels sccecene Pages Processing 

. File Total Loaded Percent Mapped Time 

; _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 21 0 581 00:01.0 

; COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:PUTCACHE/OBJ=OBJ$:PUTCACHE MSRC$:PUTCACHE/UPDATE=(ENH$:PUTCACHE) 
3 a? 744 code + 0 data bytes 


; le Hees 09:38-8 
3 Lines/CPU Min: 612 

3 Lexemes/CPU-Min: 25869 

: penary Used: 203 pages 
e a 


; Compilation Complete 


ve: 


"AH: BT13A-SE 
VAX/VMS V4.0 


0200 


TIA r 


ON 


R 


